home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d16 / winbatch.arc / SLIDES.WBT < prev    next >
Encoding:
Text File  |  1991-05-22  |  1.0 KB  |  35 lines
  1. ; This is the slide sho WBT file.
  2. ; After a BMP file is displayed, hold the shift key down a second to
  3. ; move to the next BMP file
  4.  
  5. ; First we iconize all windows to get them out of the way.
  6. Tab=Num2Char(9)
  7. Windows=WinItemize()
  8. WinCount=ItemCount(Windows,Tab)   ;Windows are delimited by tabs
  9. :winloop
  10. if WinCount==0 then goto winexit
  11. ThisWindow=ItemExtract(WinCount,Windows,Tab)
  12. WinIconize(ThisWindow)
  13. WinCount=WinCount-1
  14. goto winloop
  15.  
  16. :winexit
  17. DirChange(FilePath(FileLocate("WIN.INI")))
  18. ListOfBmpFiles=FileItemize("*.BMP")
  19. CurrentBmpNumber=1
  20. MaxBmpNumber=ItemCount(ListOfBmpFiles," ")
  21.  
  22. Display(5,"The Wallpaper Show","Press the SHIFT key to move to the next Wallpaper.")
  23.  
  24. :loop
  25. if CurrentBmpNumber>MaxBmpNumber then Exit
  26. ShowBmpFile=ItemExtract(CurrentBmpNumber,ListOfBmpFiles," ")
  27. TileTheWallpaper=@FALSE
  28. if FileSize(ShowBmpFile)<40000 then TileTheWallpaper=@TRUE  
  29. Wallpaper(ShowBmpFile,TileTheWallpaper)
  30. currentBmpNumber=CurrentBmpNumber+1
  31. :wait
  32. Yield
  33. if !IsKeyDown(@SHIFT) then goto wait
  34. goto loop
  35.